home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / NOMINAL INTEREST RATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  464b  |  18 lines
  1. 10  PRINT "NOMINAL INTEREST RAE ON INVESTMENTS"
  2. 20  PRINT 
  3. 30  PRINT "PRINCIPAL";
  4. 40  INPUT P
  5. 50  PRINT "TOTAL VALUE";
  6. 60  INPUT T
  7. 70  PRINT "NUMBER OF YEARS, MONTHS";
  8. 80  INPUT Y0,M
  9. 84 Y = Y0 +M/12
  10. 90  PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
  11. 100  INPUT N
  12. 110 I2 = N *((T/P) ^(1/(N *Y)) -1) *100
  13. 120  PRINT "NOMINAL INTEREST RATE = ";I2;"%"
  14. 130  PRINT 
  15. 140  PRINT "MORE DATA: (1=YES,0=NO)";
  16. 150  INPUT X
  17. 160  IF X = 1  THEN 20
  18. 170  PRINT "<CTRL-D>RUNHELLO"